home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / ML_VECTB.ZIP / UTILS / MKFORM8.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-03-10  |  477 b   |  26 lines
  1. uses dosio;
  2. var
  3.   coord:array[0..60] of record x,y,z:integer end;
  4.   max:word;
  5.   f:file;
  6.  
  7. Procedure BuildForm;
  8. var a:integer;
  9. begin
  10.   max:=0;
  11.   for a:=0 to 47 do begin
  12.     with coord[max] do begin
  13.       x:=0; y:=0; z:=0;
  14.     end;
  15.     inc(max);
  16.   end;
  17. end;
  18.  
  19. begin
  20.   Writeln('Making figure ...');
  21.   openforoutput(f,'_init.bal','');
  22.   BuildForm;
  23.   blockwrite(f,max,2);  { Nr of points in the 3D form }
  24.   blockwrite(f,coord,max*3*2);
  25.   closefile(f,'');
  26. end.